home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 1 / 64er_Magazin_Sonderheft_01_86-01_19xx_Markt__Technik_de.d64 / lied 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  662b  |  40 lines
  1. 10 si=54272
  2. 20 forl=sitosi+24:pokel,o:next
  3. 30 pokesi+5,9:pokesi+6,0
  4. 40 pokesi+24,10
  5. 50 read hb,lb,dr
  6. 60 ifhb<0thenpokesi+24,0
  7. 70 pokesi+1,hb:pokesi,lb
  8. 80 pokesi+4,33
  9. 90 forz=1todr:next
  10. 100 pokesi+4,32:forz=1to50:next
  11. 110 goto50
  12. 200 data 17,103,250
  13. 210 data 19,137,250
  14. 220 data 21,237,250
  15. 230 data 23,059,250
  16. 240 data 26,020,500
  17. 250 data 26,020,500
  18. 260 data 29,069,250
  19. 270 data 29,069,250
  20. 280 data 29,069,250
  21. 290 data 29,069,250
  22. 300 data 26,020,500
  23. 310 data 29,069,250
  24. 320 data 29,069,250
  25. 330 data 29,069,250
  26. 340 data 29,069,250
  27. 350 data 26,020,500
  28. 360 data 23,059,250
  29. 370 data 23,059,250
  30. 380 data 23,059,250
  31. 390 data 23,059,250
  32. 400 data 21,237,500
  33. 410 data 21,237,500
  34. 420 data 19,137,250
  35. 430 data 19,137,250
  36. 440 data 19,137,250
  37. 450 data 19,137,250
  38. 460 data 17,103,500
  39. 470 data -1, -1, -1
  40.